<%
''on error resume next
dim csmalban, rsmalban, sqlsmalban
set csmalban=server.createobject("adodb.connection")
csmalban.open DSN_NAME
set rsmalban=server.createobject("adodb.recordset")
sqlsmalban="select * from small_down_banners"
rsmalban.open sqlsmalban, csmalban,3
'if rsmalban.eof=true and rsmalban.bof=true then
dim printOBJ
do while not rsmalban.eof
if rsmalban("active") = 1 then '' is the ban Active ?
if rsmalban("banner_href") = "0" then
linker = ""
else
if rsmalban("blank_target") = "1" then blankTar = " target=_blank"
linker = ""
end if
if rsmalban("is_swf") = "1" then
printOBJ = ""
else
printOBJ = linker & ""
end if
response.write "
"
response.write "
" & replace(printOBJ,"\","/") & "
"
response.write "
"
else
bo = 1
end if
rsmalban.movenext
loop
set r3=nothing
set c3=nothing
response.write "